home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Games / GameTracker / scripts / server.rc < prev    next >
Encoding:
Text File  |  2000-07-18  |  2.6 KB  |  117 lines
  1. if exists env:Address
  2.    delete >nil: env:Address
  3. endif
  4. echo "*N[ip/hostname:port] ?"
  5. execute scripts/getaddress.rc
  6.  
  7. echo "*N"
  8.  
  9. qstat -Ts templ/tmap $qwbgame $Address >env:currentmap
  10. run <>nil: pop $currentmap
  11.  
  12. qstat -P -R -Ts templ/s_temp -Tp templ/p_temp -Th templ/h_temp $qwbgame $Address
  13. run <>nil: Play16 $qstatsnd
  14.  
  15. WAIT SEC 1
  16.  
  17. requestchoice TITLE "GameTracker by SuRgEoN" BODY "" A-Refr Refr Conn Spec Rules "SQuery" Filter "MQuery" Quit >env:Input
  18.  
  19. run <>nil: Play16 $buttonsnd
  20.  
  21. if $Input eq 1
  22.  
  23. delete env:alert >nil:
  24. REQUESTCHOICE TITLE "" BODY "Select sound alert event" "none" "players" "not full" "playername" "mapname" >env:sndalert
  25.  
  26. IF $sndalert EQ 0
  27.    echo "type mapname to trigger alert:"
  28.    execute scripts/agetmapname.rc
  29.    rename env:input to env:alert
  30.    echo "sound will be played when $alert is the current map on this server..."
  31. ENDIF
  32.  
  33. IF $sndalert EQ 2
  34.    echo "type minimum number of players to trigger alert:"
  35.    execute scripts/agetminplayers.rc
  36.    rename env:input to env:alert
  37.    echo "sound will be played when there's a minimum  of $alert player(s) on server..."
  38. ENDIF
  39.  
  40. IF $sndalert EQ 3
  41.    echo "sound will be played when there is room for atleast 1 more player"
  42. ENDIF
  43.  
  44. IF $sndalert EQ 4
  45.    echo "type the playername to trigger alert:"
  46.    execute scripts/agetplayername.rc
  47.    rename env:input to env:alert
  48.    echo "sound will be played when $alert is on this server..."
  49. ENDIF
  50.  
  51.  
  52.    setenv Input "1"
  53.    setenv qwbautoref 1
  54.    
  55.    run <nil: execute scripts/autorefresh.rc
  56.    echo "autorefresh enabled: updating every $arefreshtime seconds ..."
  57.    execute scripts/autorefresh_pop.rc
  58. endif
  59.  
  60. if $Input eq 2
  61.    setenv qwbautoref 0
  62.    execute scripts/refresh.rc
  63. endif
  64.  
  65. if $Input eq 3
  66.    setenv qwbautoref 0
  67.    setenv spectator "+spectator 0"
  68.    execute $qwbpath
  69.    cd GameTracker:
  70.    execute scripts/return.rc
  71. endif
  72.  
  73. if $Input eq 4
  74.    setenv qwbautoref 0
  75.    setenv spectator "+spectator 1"
  76.    execute $qwbpath
  77.    cd GameTracker:
  78.    execute scripts/return.rc
  79. endif
  80.  
  81. if $Input eq 5
  82.    setenv qwbautoref 0
  83.    qstat -R -Ts templ/rules $qwbgame $Address
  84.    run <>nil: Play16 $qstatsnd
  85.    execute scripts/sqoptions.rc
  86. endif
  87.  
  88. if $Input eq 6
  89.    setenv qwbautoref 0
  90.    execute scripts/server.rc
  91. endif
  92.  
  93. if $Input eq 7
  94.    setenv qwbautoref 0
  95.    execute scripts/initfilters.rc
  96. endif
  97.  
  98. if $Input eq 8
  99.    setenv qwbautoref 0
  100.  IF $reqfilter EQ 0
  101.    execute scripts/userfilter_all.rc
  102.  ENDIF
  103.  IF $reqfilter EQ 1
  104.    execute scripts/userfilter_noempty.rc
  105.  ENDIF
  106. endif
  107.  
  108. if $Input eq 0
  109.    setenv qwbautoref 0
  110.    run <>nil: Play16 $quitsnd
  111.    execute scripts/cleanup.rc
  112.    cd ram:
  113.    assign GameTracker: remove >NIL:
  114.    delete ram:GameTracker ALL >NIL:
  115.    endcli
  116. endif
  117.